home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / momo12.bas < prev    next >
BASIC Source File  |  1991-10-18  |  11KB  |  228 lines
  1. 1 KEY (1) ON :ON KEY (1) GOSUB 65010:PLAY OFF
  2. 1010 PLAY OFF:T$="U0Q8T130":PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  3. 1020 GOSUB 1690:GOSUB *MOMO:GOSUB *GAMEN:BGM 1
  4. 1030 '
  5. 1040 B0$="@59U40%RO2L16V12 A>A<A>A<A>A<A>A<A>A<A>A<A>A<A>A< A+>A+<A+>A+<A+>A+<A+>A+<A+>A+<A+>A+<A+>A+<A+>A+<"
  6. 1050 BA$="@59U-40%LO2L16V12 A>A<A>A<A>A<A>A<A>A<A>A<A>A<A>A< A+>A+<A+>A+<A+>A+<A+>A+<A+>A+<A+>A+<A+>A+<A+>A+<"
  7. 1060 A0$="@70U40O4%R5V13Q8D2L16Q3FFEEDDCC Q8D2Q5EFGQ8A&A4"
  8. 1070 AA$="R16@70U-40O4%L5V9Q8D2L16Q3FFEEDDCC Q8D2Q5EFGQ8A4"
  9. 1080 C0$="@1V15O1L8 E.E16>C4<E.E16>C4<E.E16>C4<E.E16>C4<"
  10. 1090 D0$="@15%R8O4L16V13 D4DDDD R4DDDD D4DDDD R4DDDD"
  11. 1100 E0$="@15%L8O3L16V13 A4AAAA R4AAAA A4AAAA R4AAAA"
  12. 1110 B1$="G>G<G>G<G>G<G>G<G>G<G>G<G>G<G>G <G>G<G>G<G>G<G>G<G>G<G>G<G>G<G>G<"
  13. 1120 A1$="Q8B-2G2>Q5L6D<B-GL16B-4G4"
  14. 1130 A1B$="R16Q8B-2G2>Q5L6D<B-GL16B-4G8."
  15. 1140 E1$="B-4B-B-B-B- R4B-B-B-B- B-4B-B-B-B- R4B-B-B-B-"
  16. 1150 B2$="B->B-<B->B-<B->B-<B->B-<B->B-<B->B-<B->B-<B->B-< B->B-<B->B-<B->B-<B->B-<B->B-<B->B-<B->B-<B->B-<"
  17. 1160 B4$=">C+>C+<C+>C+<C+>C+<C+>C+<C+>C+<C+>C+<C+>C+<C+>C+< C+>C+<C+>C+<C+>C+<C+>C+<C+>C+<C+>C+<C+>C+<C+>C+<<"
  18. 1170 B3$="A>A<A>A<A>A<A>A<A>A<A>A<A>A<A>A< G>G<G>G<G>G<G>G<G>G<G>G<G>G<G>G<"
  19. 1180 A2$="Q8D2Q4DDGGB-B->DD Q8G4<Q4 B-G>D<G >G<G>B-<G >G<G>D<G"
  20. 1190 A2B$="R16Q8D2Q4DDGGB-B->DD Q8G4<Q4 B-G>D<G >G<G>B-<G >G<G>D<"
  21. 1200 E3$="A4AAAA R4AAAA B-4B-B-B-B-R4B-B-B-B-"
  22. 1210 A3$="Q4DFA>DQ8F4.Q4EF Q8D4< Q4B-8G8 EFB-G  EFGF E4"
  23. 1220 A3B$="R16Q4DFA>DQ8F4.Q4EF Q8D4< Q4B-8G8 EFB-G  EFGF E8."
  24. 1230 A4$="Q4A>C+EGQ8A4Q4 GGEEC+C+EE GEC+E GEC+E GEC+E Q6G4Q8"
  25. 1240 A4B$="R16Q4A>C+EGQ8A4Q4 GGEEC+C+EE GEC+E GEC+E GEC+E Q6G8.Q8"
  26. 1250 A5$="A1R1<"
  27. 1260 A5B$="R16A1R2<"
  28. 1270 D4$="E4EEEE R4EEEE E4EEEE R4EEEE"
  29. 1280 E4$="O4C+4C+C+C+C+ R4C+C+C+C+ C+4C+C+C+C+ R4C+C+C+C+"
  30. 1290 D5$="D4DDDD R4DDDD DDDD DDDD DDDD DDDD"
  31. 1300 E5$="O3A4AAAA R4AAAA AAAA AAAA AAAA AAAA"
  32. 1310 B5$="A>A<A>A<A>A<A>A<A>A<A>A<A>A<A>A< A>A<A>A<A>A<A>A<A>A<A>A<A>A<A>A<"
  33. 1320 C5$="V15L8 E.E16>C4<E.E16>C4<E.E16>C4<E.E16>C16C16C16C16"
  34. 1330 A6$="V11O2@69%R5L8D4FADF4. L16AFDFAFDF A4D4"
  35. 1340 AB$="V11O2@69%L5L8D4FADF4. L16AFDFAFDF A4D4"
  36. 1350 B6$="V13O2L8D4FADF4. L16AFDFAFDF A4D4"
  37. 1360 A7$="D4F+8A8>C4DDDD CCCC F+DCD F+DCDF+DC<A"
  38. 1370 A8$="G4DDGGB-B->DD<B-4 D4.EF GG>G<GGG>G<G"
  39. 1380 A9$="E4 G8ED C+4.EG  AAAA G4 AAGG EEC+C+"
  40. 1390 A10$="DD>D<D DD>D<D DD>D<D DD>D<D D>D<D>D< D>D<D>D< F>F<F>F< F>F<F>F<"
  41. 1400 A10$="DD>D<D DD>D<D DD>D<D DD>D<D  DD>D<D DD>D<D FF>F<F FF>F<F"
  42. 1410 A11$="AA>A<A AA>A<A DD>D<D DD>D<D V14@70%R5O5G2<Q4L16DDDDq8d4"
  43. 1420 A11B$="AA>A<A AA>A<ADD>D<D DD>D<D V14@70%L5O5E2<<Q4B-B-B-B-Q8B-4"
  44. 1430 B11$="AA>A<A AA>A<A DD>D<D DD>D<D GGGG GGGG DDDD DDDD"
  45. 1440 D6$="O4L16D2DDDDD4D2DDDDD4"
  46. 1450 E6$="O4L16F2FFFFF4F2FFFFF4"
  47. 1460 E7$="F+2 F+F+F+F+ F+4 F+2 F+F+F+F+ F+4"
  48. 1470 E8$="G2GGGGG4G2GGGGG4"
  49. 1480 D9$="E2EEEEE4E2EEEEE4"
  50. 1490 D10$="D2DDDDD4 V14AFDFAFDFAFDFAFDF"
  51. 1500 E10$="F2FFFFF4 V14FD<A>DFD<A>DFD<A>DFD<A>D"
  52. 1510 D11$="F1R2DDDDD4":E11$="A1R2FFFFF4"
  53. 1520 PLAY A0$,B0$,BA$,D0$,E0$,AA$,C0$,C0$
  54. 1530 PLAY A1$,B1$,B1$,D0$,E1$,A1B$,C0$,C0$
  55. 1540 PLAY A2$,B2$,B2$,D0$,E1$,A2B$,C0$,C0$
  56. 1550 PLAY A3$,B3$,B3$,D0$,E3$,A3B$,C0$,C0$
  57. 1560 PLAY A0$,B0$,BA$,D0$,E0$,AA$,C0$,C0$
  58. 1570 PLAY A1$,B1$,B1$,D0$,E1$,A1B$,C0$,C0$
  59. 1580 PLAY A2$,B2$,B2$,D0$,E1$,A2B$,C0$,C0$
  60. 1590 PLAY A4$,B4$,B4$,D4$,E4$,A4B$,C0$,C0$
  61. 1600 PLAY A5$,B5$,B5$,D5$,E5$,A5B$,C5$,C5$
  62. 1610 '
  63. 1620 PLAY A6$,B6$,B6$,D6$,E6$,AB$,C0$,C0$
  64. 1630 PLAY A7$,A7$,A7$,D6$,E7$,A7$,C0$,C0$
  65. 1640 PLAY A8$,A8$,A8$,D6$,E8$,A8$,C0$,C0$
  66. 1650 PLAY A9$,A9$,A9$,D9$,E8$,A9$,C0$,C0$
  67. 1660 PLAY A10$,A10$,A10$,D10$,E10$,A10$,C0$,C0$
  68. 1670 PLAY A11$,B11$,B11$,D11$,E11$,A11B$,C5$,C5$
  69. 1680 GOTO 1520
  70. 1690 '
  71. 1700 LOAD@"Q:\FJ\PCM\EDRUMS.PMB":GOSUB *FM_SET
  72. 1710 FOR I=0 TO 13:PART I,I:NEXT
  73. 1720 PLAY ,,,,,,"%RU999","%LU0"
  74. 1730 RETURN
  75. 1740 *MOMO
  76. 1750 DATA "　Ｗ．ＭｏＭｏオリジナルＰａｒｔ３です。"
  77. 1760 DATA "　前回載った曲は一寸オーケストラ・ヒットが煩くＢＡＳＳの音が聴こえなかったのですが今回は大丈夫です。"
  78. 1770 DATA "　又々ＡＶからの移植ですのでチャンネルが余ってしまった。ですから余ったチャンネルにはエコーなどに使っています。"
  79. 1780 DATA "　この曲は後半に味があると思います。しかし終わりが最低ですね・・・。 おまけにＤｒｕｍパターンが一寸単調過ぎたな。 "
  80. 1790 DATA "　僕は作曲をする時は楽譜を書かずにコード表を見て思いついたフレーズをＭＭＬにぶち込むという方法を取っています。とんでもない方法ですね。これで作曲が出来るなんて自分でも不思議に思ってしまいます。"
  81. 1800 DATA "菅井つばめさんはどのような作曲の仕方をするのでしょうか。知りたいものです。やっぱり楽譜は書くんでしょうね。"
  82. 1810 DATA "　最後に曲名を書くことにします。“　Ｌａｓｔ　Ａｔｔａｃｋ!!　“です。由来は三学期の終了式に作ったからです（余り意味はない）。やっぱり曲名はあった方がいいですね。"
  83. 1820 DATA "　"
  84. 1830 DATA "  Ｐｒｏｇｒａｍｅｄ　ｂｙ　Ｗ．ＭｏＭｏ．１９９０年３月２５日                      Ｃｏｍｐｏｓｅｄ　ｂｙ　Ｗ．ＭｏＭｏ．１９９０年３月２４日
  85. 1840 DATA "  "
  86. 1850 DATA "　　　　　　　　　Ｐｕｓｈ　ＲＥＴＵＲＮ　ＫＥＹ　！！
  87. 1860 DATA "" 
  88. 1870 RESTORE 1740:COLOR 7,0,0,0:CLS
  89. 1880 GOSUB *SCREEN
  90. 1900 *KEY
  91. 1910 A$=INKEY$
  92. 1920 IF A$=CHR$(13) THEN RETURN ELSE 1910
  93. 1930 '
  94. 1940 *GAMEN
  95. 1950 '
  96. 1960 GOSUB *F_OUT:SCREEN@2:COLOR 7,0,0,0:CLS:GOSUB *HOSI
  97. 1970 A=255:B=255:C=255:D=20:E=1
  98. 1980 FOR II=0 TO 9:FOR I=E TO D
  99. 1990 SYMBOL(I,II),"Last Attack",7,8,[A,B,C]
  100. 2000 NEXT:A=A-16:B=B-16:C=C-5:E=E+1:D=D-1:NEXT
  101. 2010 '
  102. 2020 A=255:B=255:C=255:D=20:E=1
  103. 2030 FOR II=0 TO 9:FOR I=E TO D
  104. 2040 SYMBOL(I,120+II),"W.MoMoｵﾘｼﾞﾅﾙPart3",4,8,[A,B,C],,,,4
  105. 2050 NEXT:A=A-8:B=B-24:C=C-8:E=E+1:D=D-1:NEXT
  106. 2060 '
  107. 2070 A=255:B=255:C=255:D=20:E=1
  108. 2080 FOR II=0 TO 9:FOR I=E TO D
  109. 2090 SYMBOL(I,240+II),"Programed by W.MoMo.",3,8,[A,B,C],,,,7
  110. 2100 NEXT:A=A-16:B=B-8:C=C-24:E=E+1:D=D-1:NEXT
  111. 2110 '
  112. 2120 A=255:B=255:C=255:D=20:E=1
  113. 2130 FOR II=0 TO 9:FOR I=E TO D
  114. 2140 SYMBOL(I,385+II),"1990/3/25",8,5,[A,B,C],,,,3
  115. 2150 NEXT:A=A-8:B=B-16:C=C-24:E=E+1:D=D-1:NEXT:RETURN
  116. 2160 '
  117. 2170 *HOSI:'HYUMA DE HA NAI !!!!
  118. 2180 '
  119. 2190 FOR I=1 TO 3000
  120. 2200 X=INT(RND(1)*700):Y=INT(RND(1)*700):A=INT(RND(1)*255):B=INT(RND(1)+255):C=INT(RND(1)*255)
  121. 2210 PSET (X,Y),[A,B,C]
  122. 2220 NEXT:RETURN
  123. 17000 *SCREEN
  124. 17010 SCREEN@ 0 : PALETTE@
  125. 17020 FOR I=0 TO 15 : PALETTE I,[0,0,0] : NEXT
  126. 17030 COLOR ,%5 : CLS
  127. 17040 X=630 : Y=30 : MX=2 : MY=3: R=3 : C1=1 : C2=5 : C3=15 : F=16
  128. 17050 ST$="ＰＩＣＫ　ＵＰ　ＴＯＷＮＳ" : GOSUB *STR_PUT
  129. 17060 X=575 : Y=30 : MX=2 : MY=3 : R=3 : C1=1 : C2=5 : C3=15 : F=16
  130. 17070 ST$="ＭＵＳＩＣ　ＰＲＯＧＲＡＭ" : GOSUB *STR_PUT
  131. 17080 GOSUB *F_IN : FOR I=0 TO 2000 : NEXT
  132. 17090 X1=10 : X2=630 : Y1=10 : Y2=460 : C1=1 : C2=6 : C3=15
  133. 17100 GOSUB *WAKU
  134. 17110 X1=20 : X2=620 : Y1=20 : Y2=90 : C1=15 : C2=7 : C3=5
  135. 17120 GOSUB *WAKU
  136. 17130 X1=20 : X2=620 : Y1=420 : Y2=450 : C1=15 : C2=7 : C3=5
  137. 17140 GOSUB *WAKU
  138. 17150 X1=20 : X2=620 : Y1=100 : Y2=410 : C1=15 : C2=7 : C3=5
  139. 17160 GOSUB *WAKU
  140. 17170 SYMBOL (30,430),"ＰＦ１キーを押すと、演奏を中断して音楽ＭＥＮＵに戻ります。",1,1,0,,,1
  141. 17180 SYMBOL (30,30),"　ＴＩＴＬＥ　",1,1,0,0,PSET,17
  142. 17190 SYMBOL (80,53),"Ｌａｓｔ　Ａｔｔａｃｋ",1,2,0,0,PSET,1
  143. 17200 SYMBOL (30,110),"　ＤＡＴＡ　",1,1,0,0,PSET,17
  144. 17210 SYMBOL (80,140),"Programed by　Ｗ．ＭｏＭｏ　．１９９０年３月２５日",1,1,0,0,PSET,1,1
  145. 17220 SYMBOL (80,160)," Composed by　Ｗ．ＭｏＭｏ　．１９９０年３月２４日",1,1,0,0,PSET,1,1
  146. 17230 SYMBOL (30,200),"　ＭＥＳＳＡＧＥ　",1,1,0,0,PSET,17
  147. 17240 'ST$()="･･････････････････････････････････････････････････････"
  148. 17250 ST$(0)="　又々ＡＶからの移植ですのでチャンネルが余ってしまった。ですから余った"
  149. 17260 ST$(1)="チャンネルにはエコーなどに使っています。この曲は後半に味があると思いま"
  150. 17270 ST$(2)="す。しかし終わりが最低ですね・・・・。おまけにＤｒｕｍパターンが一寸単"
  151. 17280 ST$(3)="調過ぎたな。僕は作曲をする時は楽譜を書かずにコード表を見て思いついたフ"
  152. 17290 ST$(4)="レーズをＭＭＬにぶち込むという方法を取っています。とんでもない方法です"
  153. 17300 ST$(5)="ね。これで作曲が出来るなんて自分でも不思議に思ってしまいます。"
  154. 17310 ST$(6)="　曲名の由来は三学期の終了式に作ったからです（余り意味はない）。やっぱ"
  155. 17320 ST$(7)="り曲名はあった方がいいですね。"
  156. 17325 ST$(8)="リターンキー、または実行キーを押して下さい。"
  157. 17330 GOSUB *MESSAGE
  158. 17340 RETURN
  159. 17350 *STR_PUT
  160. 17360 SYMBOL (X,Y),ST$,MX,MY,%C1,R,PSET,F
  161. 17370 SYMBOL (X+1,Y),ST$,MX,MY,%C1,R,PSET,F
  162. 17380 SYMBOL (X+2,Y),ST$,MX,MY,%C1,R,PSET,F
  163. 17390 SYMBOL (X+2,Y-1),ST$,MX,MY,%C1,R,PSET,F
  164. 17400 SYMBOL (X+2,Y-2),ST$,MX,MY,%C1,R,PSET,F
  165. 17410 SYMBOL (X,Y-2),ST$,MX,MY,%C3,R,PSET,F
  166. 17420 SYMBOL (X+1,Y-2),ST$,MX,MY,%C3,R,PSET,F
  167. 17430 SYMBOL (X,Y-1),ST$,MX,MY,%C3,R,PSET,F
  168. 17440 SYMBOL (X+1,Y-1),ST$,MX,MY,%C2,R,PSET,F
  169. 17450 RETURN
  170. 17460 *WAKU
  171. 17470 LINE (X1+2,Y1+2)-(X2-2,Y2-2),PSET,%C2,BF
  172. 17480 CONNECT (X1,Y2)-(X1,Y1)-(X2,Y1),%C3
  173. 17490 CONNECT (X1+1,Y2-1)-(X1+1,Y1+1)-(X2-1,Y1+1),%C3
  174. 17500 CONNECT (X1+1,Y2)-(X2,Y2)-(X2,Y1+1),%C1
  175. 17510 CONNECT (X1+2,Y2-1)-(X2-1,Y2-1)-(X2-1,Y1+2),%C1
  176. 17520 RETURN
  177. 17530 *MESSAGE
  178. 17540 FOR I=0 TO 8
  179. 17550   SYMBOL (50,230+20*I),ST$(I),1,1,0,0,PSET,1
  180. 17560 NEXT I
  181. 17570 RETURN
  182. 17580 *F_OUT
  183. 17590 FOR I=16 TO 1 STEP -1 : GOSUB *PALETTE : NEXT I :COLOR ,%0: CLS: RETURN
  184. 17600 *F_IN
  185. 17610 FOR I=1 TO 16 : GOSUB *PALETTE : NEXT I : RETURN
  186. 17620 *PALETTE
  187. 17630 PALETTE 1,[0*I,0*I,1*I]
  188. 17640 PALETTE 2,[1*I,0*I,2*I]
  189. 17650 PALETTE 3,[2*I,1*I,3*I]
  190. 17660 PALETTE 4,[4*I,2*I,6*I]
  191. 17670 PALETTE 5,[8*I,6*I,9*I]
  192. 17680 PALETTE 6,[12*I,10*I,13*I]
  193. 17690 PALETTE 7,[14*I,13*I,15*I]
  194. 17700 PALETTE 15,[15*I,15*I,15*I]
  195. 17710 RETURN
  196. 30000 *FM_SET
  197. 30010 DIM FM%(23) : RESTORE *FM_SET
  198. 30020 SAD=VARPTR(FM%(0))
  199. 30030 FOR I=1 TO 4 
  200. 30040   READ NUM
  201. 30050   READ TN$ : TN$=LEFT$(TN$+SPACE$(8),8)
  202. 30060   FOR OFS=0 TO 7 : POKE SAD+OFS,ASC(MID$(TN$,OFS+1,1)) : NEXT
  203. 30070   FOR OFSET=8 TO 33
  204. 30080     READ DT$
  205. 30090     POKE SAD+OFSET,VAL("&H"+DT$)
  206. 30100   NEXT
  207. 30110   VOICE NUM,FM%
  208. 30120 NEXT : RETURN
  209. 30130 'FM TONE DATA
  210. 30200 DATA 15  'HkPiano 
  211. 30205 DATA HkPiano  ( from "HGFMDATA" )
  212. 30210 DATA 75,71,07,01,2C,14,2B,00,9F,16,98,1F
  213. 30220 DATA 06,03,1B,08,01,01,04,01,F3,34,23,35,30,00
  214. 30230 DATA 59  'EleBass5
  215. 30235 DATA EleBass5  ( from "HGFMDATA" )
  216. 30240 DATA 01,00,08,00,1E,0F,32,00,1F,1F,1F,1F
  217. 30250 DATA 08,11,08,08,02,01,03,00,68,36,68,36,02,00
  218. 30260 DATA 69  'YMO??  ( from "HGFMDATA" )  
  219. 30265 DATA YMO??   
  220. 30270 DATA 01,31,0C,3C,02,02,00,00,1F,1F,9F,9F
  221. 30280 DATA 0A,0A,1F,1F,03,03,00,00,34,34,04,04,04,00
  222. 30290 DATA 70  'Orcstra1  ( from "HGFMDATA" )
  223. 30295 DATA Orcstra1
  224. 30300 DATA 72,01,72,32,1C,15,00,00,1F,1F,0E,10
  225. 30310 DATA 04,07,00,00,00,00,00,00,14,25,06,06,3C,00
  226. 65000 BGM 0:PLAY "R64":BGM 1
  227. 65010 KEY (1) OFF:PLAY OFF:FOR I=0 TO 13:PART I,I:NEXT:RUN"MENU.BAS"
  228.